home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / ViewIt™ 2.24 Shareware / Pascal Demo Projects / Metrowerks Pascal 1.0d7 Demos / TutorialMP.p < prev    next >
Text File  |  1994-03-02  |  2KB  |  53 lines
  1. {Tutorial MP Demonstration Program}
  2. {©FaceWare 1993-94.  All Rights Reserved.}
  3.  
  4. program TutorialMP;
  5.  
  6.     uses
  7.         FaceStorMP, FaceProcMP;
  8.     var
  9.         theFlag, theListItem, theMenuItem: integer;
  10.         theString: string[31];
  11.  
  12. begin
  13.     fRec.uName := 'Tutorial.Rsrc';
  14.     FaceIt(nil, DoInit, 0, 0, 0, 0);
  15.     theFlag := 0;
  16.     theListItem := 3;
  17.     theMenuItem := 2;
  18.     theString := 'Hello';
  19.     repeat
  20.         FaceIt(nil, DoLoop, 0, 0, 0, 0);
  21.         if (fRec.uMenuID = 105) and (fRec.uMenuItem = 1) then
  22.             begin
  23.                 FaceIt(nil, NewWnd, 1010, 0, 0, 0);
  24.                 FaceIt(nil, GetCtl, 1010, 0, 1, 3);
  25.                 FaceIt(nil, LnkCtl, ord(fRec.cControl), ord(@theFlag), 2, 0);
  26.                 FaceIt(nil, GetCtl, 1010, 0, 1, 4);
  27.                 FaceIt(nil, LnkCtl, ord(fRec.cControl), ord(@theString), -31, 0);
  28.                 FaceIt(nil, GetCtl, 1010, 0, 1, 5);
  29.                 FaceIt(nil, LnkCtl, ord(fRec.cControl), ord(@theListItem), 2, 0);
  30.                 FaceIt(nil, GetCtl, 1010, 0, 1, 6);
  31.                 FaceIt(nil, LnkCtl, ord(fRec.cControl), ord(@theMenuItem), 2, 0);
  32.                 FaceIt(nil, SetVal, 1010, 0, 0, 0);
  33.                 repeat
  34.                     FaceIt(nil, MdlWnd, 1010, 0, 0, 0);
  35.                     if (fRec.uMenuID = 1010) then
  36.                         if (fRec.wcHit = -1) then
  37.                             leave
  38.                         else if (fRec.wcHit = 1) then
  39.                             begin
  40.                                 FaceIt(nil, GetVal, 1010, 0, 0, 0);
  41.                                 leave;
  42.                             end
  43.                         else if (fRec.wcHit = 2) then
  44.                             begin
  45.                                 FaceIt(nil, GetCtl, 1010, 0, 1, 8);
  46.                                 fRec.uString := 'Run button was hit.';
  47.                                 FaceIt(fRec.cControl, 1565, 2, 0, 0, 0);
  48.                             end;
  49.                 until false;
  50.                 FaceIt(nil, EndWnd, 1010, 0, 0, 0);
  51.             end;
  52.     until false;
  53. end.